

Type TInputType Extends TTest

	Field i:TInput

	Method _setup() {before}
		i = New TInput
	End Method

	Method _teardown() {after}
		i = Null
	End Method

	Method testConstructor() {test}
		AssertNotNull(i, "cannot create input")
	End Method


	Method testAddControl() {test}
		Local c:TControl = TControl.Create("UP", KEY_A)
		i.AddControl(c)
		AssertSame(c, i.GetControl("UP"), "cannot get UP control")
	End Method


End Type